﻿Public Class frmOnlineuser
    Dim mysql1 As New ClsSQLhelper
    Dim Strsql As String

    Function Load_data() As Boolean
        Dim DS As New DataSet
        Strsql = "Select whisversion,user,site.site,computername,IPaddress,os,onlinedatetime,onlineid from onlineuser left join site on onlineuser.site = site.siteid"
        DS = mysql1.GetMYSQLDataset(Strsql, "DS_Onlineuser", "onlineuser")

        Pn_Framework.Set_GridSetting(Me.gridDetail, DS)

    End Function
    Private Sub frmOnlineuser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Panel1.Width = Me.Width

        Load_data()
    End Sub

    Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
        Me.Dispose()
    End Sub

    Private Sub gridDetail_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridDetail.CellContentClick

    End Sub
End Class